4 



(FILE 'HOME* ENTERED AT 14:51:36 ON 13 MAR 2002) 
FILE ' US PAT FULL ' ENTERED AT 14:51:45 ON 13 MAR 2002 
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unit Nga; _ . 

interface tx^A^/ C<nn*^^ fyJ^g^ 



uses | 



Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls; 



its, Classes, Graphics, C 

Weil- krwrwn , ^ n.«£ J<W pV<34 



type 

TIncluded = class (TForm) 
El: TEdit; 
E2: TEdit; 
E3: TEdit; 
Label 1: TLabel; 
Label2: TLabel; 
Label3: TLabel; 
AE: TEdit; 

IncCheckedf^cLckB ^ ^Tmfi^ 

LabelS: TLabel; J 
Procedure FOrmCreate (Sender : tObject); 
Procedure UpdateCal; 

procedure ElChange (Sender : TObject); 

procedure E2Exit (Sender : TObject); 

procedure ElExit (Sender : TObject); 

Function GetN2: Integer; 

procedure AEExit (Sender : TObject); 
private 

E20K: Boolean; 

Nl , N2 , N3 , RemMe : integer ; 
public 

{ Public declarations } 
end; 

var 

Included: TIncluded; 
implementation 

{$R *.dfm} 



procedure TIncluded. FOrmCreate (Sender : tObject); 
begin 

E20K:=false; 
end; 

procedure TIncluded. ElChange (Sender : TObject); 
begin 

UpdateCal; 
end; 



procedure TIncluded. UpdateCal ; 
var Temp, AddNum: Integer; 
begin 
AddNum :=0; 
if AE. Texto 1 1 then 

if IncChecked. Checked then 

AddNum :=StrTo I nt (AE. Text ) ; 
if E20K then 
begin 

if El. texto 1 ' then 

Temp:=StrToInt (El. text) +RemMe+AddNum 
else 

Temp : = RemMe + AddNum; 
E3 . Text : =IntToStr (Temp ) 



end; 




procedure TIn*luded. E2Exit (Sender : TObject); 
begin 

' E20K:=true; 

RemMe:=GetN2-StrToInt (El. Text) ; 

UpdateCal; 
end; 

procedure TIncluded. ElExit (Sender : TObject); 
begin 

N1:=0; 

try 

if El . texto ' 1 then 

Nl:=StrToInt (El. text) ; 
except 
on E: Exception do Exit; 
end; 
end; 

function TIncluded. GetN2 : Integer; 

var PlusPos, Yl, Y2,L: integer; Str: ShortString; 

begin 

Str :=E2 . text; 
L:=Length (Str) ; 
PlusPos : =pos ( 1 + 1 , Str) ; 
if PlusPos>0 then 
begin 

if El . texto 1 1 then 

Yl : =St rToInt ( El . text ) 
else 

Y1:=0; 

Y2:=StrT0Int (Copy (Str, PlusPos+1 , length (Str ) ) ) 
Result :=Y1+Y2; 
end 
else 

Result :=StrToInt (Str) ; 



end; 

procedure TIncluded. AEExit (Sender : TObject); 
begin 

UpdateCal; 
end; 



end. 



unit Nga; 
interface 
uses 

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs , StdCtrls ; 

type 

TIncluded = class (TForm) 
El: TEdit; 
E2: TEdit; 
E3: TEdit; 
Label 1: TLabel; 
Label2: TLabel; 
Label3: TLabel; 
AE: TEdit; 
Label4: TLabel; 
IncChecked : TCheckBox ; 
LabelS : TLabel; 

Procedure FOrmCreate ( Sender : tObject) ; 
Procedure UpdateCal; 

procedure ElChange (Sender : TObject); 

procedure E2Exit (Sender : TObject); 

procedure ElExit (Sender : TObject); 

Function GetN2: Integer; 

procedure AEExit ( Sender : TObject); 
private 

E20K: Boolean; 

Nl , N2 , N3 , RemMe : integer ; 
public 

{ Public declarations } 
end; 

var 

Included: TIncluded; 
implementation 

{$R *.dfm} 



procedure TIncluded. FOrmCreate (Sender : tObject) 
begin 

E20K:=false; 
end; 

procedure TIncluded . ElChange ( Sender : TOb j ect ) ; 
begin 

UpdateCal; 
end; 



procedure TIncluded. UpdateCal ; 
var Temp,AddNum: Integer; 
begin 
AddNum:=0; 
if AE . Texto 1 1 then 

if IncChecked. Checked then 

AddNum:=StrToInt (AE. Text ) ; 
if E20K then 
begin 

if El . texto 1 ' then 

Temp : =StrToInt ( El . text ) +RemMe+AddNum 
else 

Temp : =RemMe+AddNum; 
E3.Text :=IntToStr (Temp) 



end; 
end; 

w 

procedure TIncluded. E2Exit (Sender : TObject) ; 
begin 

* E20K:=true; 

RemMe:=GetN2-StrToInt (El. Text) ; 

UpdateCal; 
end; 

procedure TIncluded. ElExit (Sender : TObject); 
begin 

N1:=0; 

try 

if El. texto 1 1 then 

Nl : =St rToInt ( El . text ) ; 
except 
on E: Exception do Exit; 
end; 
end; 

function TIncluded. GetN2 : Integer; 

var PlusPos , Yl , Y2 , L : integer; Str: ShortString; 

begin 

Str :=E2 .text; 
L:=Length (Str) ; 
PlusPos :=pos ( * + ■ ,Str) ; 
if PlusPos>0 then 
begin 

if El. texto' 1 then 

Yl : =StrToInt (El . text ) 
else 

Y1:=0; 

Y2 :=StrTOInt (Copy (Str, PlusPos+1, length (Str) ) ) 
Result :=Y1+Y2; 
end 
else 

Result :=StrToInt (Str) ; 



end; 

procedure TIncluded. AEExit (Sender : TObject); 
begin 

UpdateCal; 
end; 



end- 
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